﻿Public NotInheritable Class SplashScreen

    Private Sub SplashScreen_Load(sender As Object, e As EventArgs) Handles Me.Load

        VAR_VERSION = "Version {1}.{1:38}"
        lblWersja.Text = "1.1:38"
        Timer.Stop()

        Dim update As clsUpdater = New clsUpdater()

        If Not update.IsDefined Then
            update.DefineDefault()
            update.AppVersion = 1
            update.SaveToRegistry()
            update.RestartApp()
        End If

        VAR_VERSION = update.AppVersion.ToString()
        Timer.Start()

    End Sub


    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick

        Me.Hide()
        Timer.Stop()
        Timer.Enabled = False

        frmLogowania.Show()

    End Sub

End Class